10 IF TE=0 THEN TE=49152:LOAD"WINDOW WIZARD",8,1 20 SYS TE:PRINT"[147]";:!HUE(6,6,14):FORI=0TO23 30 PRINT" WINDOW WIZARD WINDOW WIZARD":NEXT 40 PRINT" WINDOW WIZARD WINDOW WIZARD[159]";:!RESTORE 50 !DEF(1,0,1,0,32,50,50):!DIM(4,20,19,15) 60 A$="WELCOME TO THE WONDERFUL WORLD OF WINDOW WIZARD"+CHR$(13)+CHR$(13) 70 A$=A$+"[155]PREPARE TO BE BEWILDERED AND AMAZED BY THE POWER OF YOUR C-64...[159]" 80 A$=A$+CHR$(13)+CHR$(13)+" PRESS THE SPACE BAR TO CONTINUE " 90 !OPEN,A$ 100 GOSUB1110:!DIM(8,3,30,10) 110 A$="WITH WIZARD, YOU CAN PRINT ANY MESSAGE (UP TO 255 CHARACTERS) IN A " 120 A$=A$+"MAGIC WINDOW. AND WAIT TIL YOU SEE WHAT CAN BE DONE WITH THE WINDOW" 130 !OPEN,A$ 140 GOSUB1110:!DEF(1,0,10,102,32):!DIM(14,12,25,9) 150 A$="[158]YOU CAN, FOR EXAMPLE, CHANGE EITHER THE COLOR OF THE WINDOW OR THE" 160 A$=A$+" CHARACTER USED FOR THE BORDER OF THE WINDOW.[159]":!OPEN,A$ 170 GOSUB1110:!DEF(0,0,1,0,32,35,35):!DIM(1,18,14,14) 180 A$="AS YOU CAN HEAR, THE PRINTING CAN BE DONE WITH OR WITHOUT SOUND." 190 !OPEN,A$ 200 GOSUB1110:!DEF(1,0,1,0,32,1,1):!DIM(10,5,25,6) 210 A$="AND YOU CAN VARY THE SPEED BOTH FOR THE WINDOW AND THE PRINTING." 220 !OPEN,A$ 230 GOSUB1110:!DEF(1,1,1,0,32,25,25):!DIM(2,2,24,10) 240 A$="NOTICE THE THREE DIMENSIONAL EFFECT OF THIS WINDOW? THAT'S JUST ONE " 250 A$=A$+"OF THE MANY EFFECTS AT YOUR COMMAND.":!OPEN,A$ 260 GOSUB1110:A$="AND YOU CAN REUSE A WINDOW WHENEVER YOU WISH...":!AGAIN,A$ 270 GOSUB1110:!DEF(1,1,1,160,160,25,25):!DIM(6,20,18,12) 280 A$="YOU CAN CHANGE THE INTERIOR OF THE WINDOW, TOO.[146][159]":!OPEN,A$ 290 GOSUB1110:!DEF(1,0,0,0,32,5,50):!DIM(0,0,40,25) 300 A$=CHR$(13)+"AND FOR THE REAL KICKER --"+CHR$(13)+CHR$(13) 310 A$=A$+"[159] VERY SLOWLY NOW, PRESS THE SPACE BAR EIGHT TIMES " 320 A$=A$+"TO STEP [155]BACKWARDS[159] THROUGH THE WINDOWS.":!OPEN,A$ 330 FOR I=1 TO 8 340 GOSUB1110 350 !CLOSE:NEXTI 360 !DIM(6,15,22,12):!DEF(1,1,1,0,32,35,35) 370 A$="OF COURSE, THERE ARE MANY MORE COMMANDS AVAILABLE THROUGH WINDOW " 380 A$=A$+"WIZARD. FOR EXAMPLE, PRESS THE SPACE BAR TO '!SAVE' " 390 A$=A$+"THE SCREEN...":!OPEN,A$ 400 GOSUB1110:!SAVE:A$="PRESS IT AGAIN TO CLEAR THE SCREEN...":!AGAIN,A$ 410 GOSUB1110:PRINT"[147]" 420 A$="AND NOW PRESS IT ONCE MORE TO '!LOAD' THE SCREEN WE SAVED BEFORE... 430 !AGAIN,A$ 440 [141]1110:![147]:[129] I[178]1[164]500:[130] 450 A$[178]"AND WE'RE RIGHT BACK WHERE WE STARTED FROM..." 460 !AGAIN,A$:[129]I[178]1[164]2000:[130]:![160] 470 ![140]:![150](0,1,1,0,32,10,20):![134](4,4,22,12) 480 A$[178]"WHAT ARE SOME OF THE OTHER COMMANDS AVAILABLE?":![159],A$ 490 [129]I[178]1[164]2000:[130] 500 A$[178]"WELL, YOU CAN USE WIZARD'S '!TONE' COMMAND FOR YOU OWN PURPOSES." 510 A$[178]A$[170][199](13)[170]"PRESS THE SPACE BAR TO HEAR IT (PRESS LISTRETURNOPEN TO MOVE ON) 520 !AGAIN,A$ 530 GETK$:IFK$=""THEN530 540 IFK$=CHR$(13) THEN570 550 IFK$<>CHR$(32)THEN530 560 !TONE,80:GOTO530 570 A$="AND YOU HAVE TOTAL SCROLLING OF ANY AREA OF THE SCREEN, AS WELL." 580 A$=A$+"PRESS THE NUMBERS 1 TO 4 TO SEE WHAT I MEAN (OR PRESS [155]RETURN[159] TO" 590 A$=A$+" MOVE ON).":!AGAIN,A$ 600 GETK$:IFK$=""THEN600 610 IFK$=CHR$(13)THEN660 620 IFK$<"1"ORK$>"4"THEN600 630 K=VAL(K$) 640 T=12:IF K/2=INT(K/2) THEN T=22 650 FORI=1TOT:!SCROLL,K,1:FORJ=1TO50:NEXT:NEXT:GOTO570 660 A$="[159]AND THE '!ERASE' COMMAND WILL ERASE ANY ROW YOU DIRECT."+CHR$(13) 670 A$=A$+"PRESS A NUMBER KEY AND WE'LL ERASE THAT ROW..." 680 A$=A$+" (OR PRESS [155]RETURN[159] TO MOVE ON) 690 !AGAIN,A$ 700 K$[178]"":[161]K$:[139]K$[178]""[167]700 710 [139]K$[178][199](13)[167]740 720 [139]K$[179]"0"[176]K$[177]"9"[167]700 730 L[178][197](K$):!ERASE,L:[137]700 740 ![160]:![134](12,4,30,7) 750 A$[178]"AND NOW WE NEED TO MOVE OUR WINDOW DOWN HERE TO SHOW YOU THE NEXT" 760 A$[178]A$[170]" WIZARD COMMAND...":![159],A$:[129]I[178]1[164]1500:[130] 770 A$[178]"LET'S CLEAR THE TOP OF THE SCREEN WITH OUR '!ERASE' COMMAND..." 780 !AGAIN,A$:[129] I[178]0 [164] 11:!ERASE,I:[130]:[129]I[178]1[164]2000:[130] 790 A$[178]"AND NOW WE'LL EXAMINE YET ANOTHER COMMAND...":!AGAIN,A$ 800 [129]I[178]1[164]2000:[130]:!CENTER,3,"NOTICE HOW" 810 !CENTER,4,"THESE THREE LINES ARE ALL":!CENTER,5,"CENTERED?" 820 A$[178]"IT WAS DONE WITH WIZARD'S '!CENTER' COMMAND.":!AGAIN,A$ 830 [129]I[178]1[164]3000:[130]:![160]:![140]:![134](0,1,38,5) 840 A$[178]"YOU MAY DISCOVER THAT WIZARD'S '!BOX' COMMAND WILL COME IN HANDY..." 850 ![159],A$:[129]I[178]1[164]1500:[130]:![150](0,0,0,0,32,20,15):![134](7,1,18,10):!BOX 860 ![134](7,21,18,10):!BOX:![134](18,1,12,6):!BOX:![134](18,14,12,6):!BOX 870 ![134](18,27,12,6):!BOX:[129]I[178]1[164]2000:[130]:![160]:![140] 880 ![150](1,1,1,0,32,35,35):![134](1,20,19,8) 890 A$[178]"AND YOU CAN USE THE '!KINETIC' COMMAND TO MOVE WINDOWS...":![159],A$ 900 [129]I[178]1[164]1500:[130]:[129]I[178]1[164]12:!KINETIC(3,0,0):!KINETIC(4,0,0):[130] 910 A$[178]"AND, USING THE SAME COMMAND, YOU CAN CONTROL THE SIZE OF ANY OF " 920 A$[178]A$[170]"YOUR MAGIC WINDOWS...":!AGAIN,A$:[129]I[178]1[164]1500:[130] 930 [129]I[178]1[164]12:J[178]19[170]I:K[178]8[170]I:!KINETIC(1,J,K):[130]:![134](10,5,30,9) 940 A$[178]"THERE ARE ALSO COMMANDS LIKE '!RESTORE', '!PRINT@', AND '!DISPLAY'." 950 A$[178]A$[170][199](13)[170][199](13)[170]"BUT THE LAST ONE WE'LL DEMONSTRATE " 960 A$[178]A$[170]"IS THE '!MENU' COMMAND. IT'S A HANDY ONE.":![159],A$ 970 [129] I[178]1[164]1500:[130]:R$[178][199](13):M$[178]" MENU"[170]R$[170]R$ 980 M$[178]M$[170]"1. THIS IS AN"[170]R$:M$[178]M$[170]"2. AN EXAMPLE OF"[170]R$[170]"3. A WINDOW"[170]R$ 990 M$[178]M$[170]"4. GENERATED"[170]R$[170]"5. MENU":M$[178]M$[170]R$[170]"6. PRESS A KEY" 1000 ![150](1,1,0,0,32,10,30):![134](5,16,22,11):!MENU,M$,K$:![134](16,5,35,6) 1010 ![150](1,1,1,0,32,10,10) 1020 A$[178]"YOU JUST PRESSED THE '"[170]K$[170]"' KEY."[170][199](13) 1030 [139]K$[179]"1"[176]K$[177]"6"[167]A$[178]A$[170]"THAT WASN'T EVEN ON THE MENU" 1040 ![159],A$:[129]I[178]1[164]2000:[130]:![134](3,1,20,20) 1050 A$[178]"LISTSYS 49152OPEN ACTS AS A TOGGLE SWITCH. IF WIZARD IS OFF, IT WILL " 1060 A$[178]A$[170]"TURN IT ON AND IF WIZARD IS ON, IT WILL TURN IT OFF."[170]R$[170]R$ 1070 A$[178]A$[170]"TAPPING LISTRESTOREOPEN WILL GIVE YOU A FULL PAGE REVIEW OF ALL 19 OF " 1080 A$[178]A$[170]"WIZARD'S COMMANDS"[170]R$[170]R$ 1090 A$[178]A$[170]"LISTPRESS THE SPACE BAR TO END THIS DEMONSTRATION.OPEN":![159],A$ 1100 [141]1110:[153]"LOAD":[128] 1110 K$[178]"":[161]K$:[139]K$[178]""[167]1110 1120 [142]